﻿'Random KO
Public Class KOZufall
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "ZUFALL"
        Me.Armee = ""
        Musik = ""
        Bild = GetBildID()
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class
Public Class KOBeschreibungRandom
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Zufall"
        Fein = ""
        Nein = ""
        Beschreibung = New String() {}
        Stil = New String() {"Waehlt einen Zufaelligen KO", "aus einer Liste aus."}
        Gabebeschreibung = New String() {""}
        SpezialgabeBeschreibung = New String() {""}
        GabeKosten = 2
        Spezialgabekosten = 3
        Gaben = New String() {}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {}
        Siegsaetze = New String() {}
        Tauschsaetze = New String() {}
        Doppelgabesaetze = New DoppelGabesatz() {}
    End Sub
End Class
Public Class KOOffizierOS
    Inherits KOKeinKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler)
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten)
    End Sub
End Class